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Abstract 

Monads provide a way of structuring functional programs. Most real 
applications require a combination of primitive monads. Here we describe 
how some monads may be combined with others to yield a combined 
monad. 

1 Introduction 

Monads are taking root in the field of functional programming. Although their 
origins lay in the abstractions of category theory, they have a wide range of 
practical applications. Moggi [6] showed how they could be used to structure 
the semantics of computations. Since then Wadler [9, 10] adapted this idea 
to structure functional programs. When structuring functional programs like 
parsers, type checkers or interpreters, it is often the case that the monad needed 
is a combination of many, a so called combined monad. 

For our purposes, we will think of a monad as a type constructor, together 
with three functions that must satisfy certain laws. For instance, we may have 
an interpreter and wish it to return, not just a value, but the number of reduc- 
tion steps taken to reach the value. Later, we may want our interpreter either 
to return a value or an error message. Without using a monad or a similar 
discipline, it would be a messy undertaking to do in a purely functional pro- 
gramming language. If however our interpreter was written in a monadic style, 
we would merely have to change the monad to change what extra information 
the interpreter should return. An analogy can be drawn with a spreadsheet 
package which has rows relative to some formula. Instead of changing every 
element in a row we only have to change the formula to which the row is related. 

For our interpreter to return the number of reductions and error messages as 
well it is appropriate that we use a combined monad with both properties. The 
construction of a combined monad is not always trivial, so it would be useful 
to have a systematic way of combining monads. Unfortunately, a method does 
not exist which combines any monad M with any monad N. However, it is 
conceivable that we may have a library of useful primitive monads, and for 
each one a technique for combining it with others. Perhaps our library could 
be divided into collections of monads which can be combined using the same 
recipe. 

In this paper we will look at the class of monads containing trees, lists, 
bags and sets and consider how they may be combined with others. Lists will 
be studied first, and it will be shown that the list monad L can be combined 
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with any monad M to form the combined monad ML 1 . The list monad can be 
used to model a form of nondeterminism: instead of returning one value, a list 
of values are returned. The combined monad ML may, for instance, be state 
transformers of lists. Or ML may be sets of lists, perhaps a useful structure for 
a query system. Another practical use of this technique is to combine a parsing 
monad [8] with an exception monad (described in Section 2). A parsing monad 
has the type: 

type Parse a = State — » L (a, State). 

A parse may fail producing an empty list or succeed producing a list of possible 
parses. Combining the list part of this type with the exception monad will 
enable us to return either an error message or a list of possible parses. 

All the work with lists is generalised in Section 7 to the tree, bag and set 
monads. It turns out that the monads which combine with bags and sets must 
hold certain properties, these are explained. 

2 Combining monads 

First let's look at two of the most commonly used monads and consider how 
they may be combined with others. Most of the notation used will be consistent 
with the Haskell language [4]. The monad of state transformers St has type: 

type St a = State — » (a, State), 

this says that a state transformer on type a is a function from a state to a pair 
consisting of a value of type a and a new state. For example, we may use a state 
in a type checker to hold the current substitution. The monad of exceptions 
Ex has the form: 

data Ex a = Return a \ Raise Exception, 

this is a sum type with constructors Return and Raise. This monad may be 
used to structure an interpreter so that it either returns a value or an error 
message. 

Now we may combine the St monad with any other monad M: 

type M St a = State — » M (a, State), 

thus forming MSt, note that M is textually substituted here. We may also 
combine the Ex monad with any other by defining: 

type MEx a = M (Ex a) 

There are now two distinct approaches to combining Ex with St, either: 

type StEx a = State — » (Ex a, State) 

or 

type ExSt a = State — » Ex (a, State) 

1 The notation ML represents the combination of monad M with monad L and has nothing 
to do with the language Standard ML. 



these have entirely different meanings. In the first model, an expression that 
raises an exception also returns a state. This monad may be thought of as 
modelling the language Standard ML, where when an exception is raised the 
state survives. In the second model, if an expression raises an exception then 
the state is not returned. 



3 Monads and their comprehension 

For our purposes, a monad consists of a type constructor M , an endofunctor 
map M :: (a — » 6) — » M a — » M b and two natural transformations unit M :: 
a — » M a and join M :: M(M a) — » M a, satisfying: 
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Laws (M-l) and (M-2) show that map M is an endofunctor, while (M-3) shows 
that unit is a natural transformation and similarly (M-4) shows that join M is 
a natural transformation. Laws (M-5) and (M-6) are the left and right unitary 
identities, law (M-7) is the associative property for monads. 

Wadler [9] describes a comprehension for monads which is sometimes more 
concise and clear than the above monad functions. The comprehension has the 
same form as list comprehension used in functional languages like Haskell. The 
difference is that the structures may not be just lists, hence we tag the square 
brackets with a letter indicating which monad is being referred to. A monad 
comprehension takes the form: 

[t\q] M , 

where t is a term and q is a qualifier. A qualifier is either empty (A), a generator 
(«<—«), or the composition of two qualifiers (p, q). 

Monad comprehension can be defined in terms of the monad functions as 
follows: 

(mc-1) [t\A] M = unit M t, 

(mc-2) [t | x <— u] M = map M (Xx. t) u, 
(mc-3) [t\p,q] M = join M [[t \ q] M \ p] M . 

There are two important facts about the qualifiers, firstly that their order 
matters. For instance, if we define two Cartesian product functions where the 
qualifiers are in a different order: 

a x b = [(x,y) \ x 4— a,y 4— b], 
ax b = [(x,y) \ y 4— b,x 4— a], 



where a and 6 range over lists. Now both forms of Cartesian product will be 
applied to the same arguments: 

[l,2]x[3,4] = [(1,3), (1,4), (2,3), (2,4)], 
[l,2]x'[3,4] = [(1,3), (2,3), (1,4), (2,4)]. 

Hence, interchanging qualifiers changes the meaning that the comprehension 
denotes. We will see later on that if the order of qualifiers in a comprehension 
can be changed without changing the value that it denotes, then the monad is 
commutative. So, in the above case we have shown that the list monad is not 
commutative. 

The second fact about qualifiers is that the variable part of a generator may 
be used in a later qualifier, but not in an earlier qualifier. For example, 

[x | xs <— a, x <— xs] M 

the variable xs is bound by the first generator and used by the next (note, this 
is in fact the definition of join M a). Reversing the quantifiers in the above 
comprehension will make X S ci free variable. 

The laws (M-5), (M-6) and (M-7) can be expressed in the comprehension: 

(M-5) [*|A,g] = [t\q], 
(M-6) [*|g,A] = [t\q], 
(M-7) [t\(p,q),r] = [p,(q,r)]. 

From (mc-1), (mc-2) and (mc-3) we can derive the following which are useful 
for manipulating the comprehension: 

(mc-4) [ft\q] M = map M f[t\q] M , 

(mc-5) [x | x <— u] M = u, 

(mc-6) [t\p,x<-[u\q] M ,r] M = [t» x \ p, q, r u x ] M , 

where the notation t™ means replace all free occurrences of x in t with u. 



4 Composing the list monad with any other 
4.1 Lists 

Lists are one of the most frequently used constructs by functional programmers, 
and are built in to most functional languages. Lists will be denoted with the 
letter L. Everything we want to do with lists here can be defined in terms of 
the empty list and four functions. The empty list will be denoted nil L :: L a 
(we may sometimes use the notation [ ]). The append operation (-H-) :: L a — » 
L a — » L a fuses two lists: 

[ai,a 2 , . . . ,a m ] -H- [61,62, • • - ,b n ] = [ai,a 2 , . . .,a m ,&i,& 2 , • • - ,b„]. 

Append (-ff) is associative and has nil L as identity. Hence (L, -ff, nil L ) forms 
a monoid (in fact it is the free monoid) . 

The function unit L :: a — » L a takes an element and gives back the singleton 
list, thus: 

unit L a = [a]. 



The function map L applies a function / to every element of a list: 

map L :: (a— »&)— »_La— 

map L f nil L = nil L 

map L f (unit L a) = unit L (f a) 

map L f (as -ff bs) = (map L f as) -ff (map L f bs). 

The function fold L takes three things: an associative operator ©, an iden- 
tity element e and a list: 

fold L :: (a— > a — > a) — > a — > L a — > a 

fold L (©) e nil L = e 

fold L (©) e (unit L a) = a 

fold L (0) e (as -ff 6s) = (fold L (@) e as) 8 (fold L (®) e bs). 

Hence, 

fold L (©) e [ai, a 2 , . . . , a n ] = ai © a 2 © • • • © a„. 

The function join L appends lists of lists (also known as concatenation) and 
can be defined in terms of fold L : 

join L :: L(L a) — » L a 
join L = fold L (-H-) nil L . 

A useful property of join L is that it distributes through append, that is: 

join L (a -H- b) = join L a -ff join L b. 

It is not difficult to show that L forms a monad by using the definitions given 
to check that the seven monad laws are satisfied. 

Homomorphism lemma 

A function h that satisfies the equations: 

h nil L = e, 

h (unit L a) = g a, 

h (as -H- bs) = h as © h bs, 

is a homomorphism if and only if h = fold L (©) e • map L g for some function 
(jr and operator © with identity e, such that g = h ■ unit L . This definition can 
be found in Bird's paper [3], a more general definition can be found in Spivey's 
paper [7]. 

4.2 An ML monoid 

We define a special operation denoted © which is a kind of Cartesian product, 

(©) :: ML a ML a ML a 
a(g>b = [x -H- y | x <r- a, y <— b] M . 

The identity element for © is unit M nil L . Using our comprehension, © can be 
given in terms of the monad functions. 



a (g b 

= [x -ft- y \ x <— a,y <— b] M (by definition) 

= join M [[x-fr y | y <- b] M \ x <- a] M (mc-3) 

= join M (map M (Ax. [x -ft- y \ y <— b] M ) a) (mc-2) 

= join M (map M (Ax. (map M (Ay. x -ff y) b)) a) (mc-2) 

Proposition 

(ML, (g, e) forms a monoid. 

Properties of (g 

For each monad function there will be a property relating it to (g, these will 
be useful for later proofs. 

((g-1) unit M a<g)unit M b = unit M (a -ff 6) . 

A list homomorphism h must distribute through append, that is: 

h(a-\\-b) = ha-W-hb. 

The monad functions map L f and join L are list homomorphisms, however 
unit L is not. Using the above homomorphism lemma every such homomor- 
phism can be expressed as the following composition h = join L ■ map L g where 
g a = h [a]. If / is a list homomorphism then: 

((g)-2) map M fa® map M f b = map M f (a <S>b). 

For ((g>-3) another kind of homomorphism must first be defined: 

h (a (g) 6) = h a (g)' h b, 

where (g)' is defined: 

a (g' b = [x (g y | x <— a, y <— b] M . 
Now if / is such a homomorphism then: 

((g-3) join M (f a) (g join M (f b) = join M (f (a (g &)). 

4.3 Folding with ® 

As (ML, (g, e) forms a monoid, we are at liberty to define a fold L operation in 
terms of these, it will be called prod. 

prod :: L(M L a) ML a 
prod = fold L ((g) e. 

This function is related to the functions for monads in the following ways: 
Properties of prod 

(prod-1) prod ■ unit L = id, 

(prod-2) prod ■ map L unit M = unit M ■ join L , 

(prod-3) prod ■ map L (map M (map L /)) = map M (map L /) - prod, 

(prod-4) prod ■ map L (join M ■ map M prod) = join M ■ map M prod ■ prod, 

(prod-5) prod ■ map L prod = prod ■ join L . 



Interestingly, if (prod-1) and (prod-5) hold then (M L, prod) forms an L- 
algebra as described in Barr and Wells [2]. We can prove the last four properties 
of prod by using the homomorphism lemma again. To prove that h = prod ■ 
map L g for some given h we just have to show that h satisfies the three equations 
for a homomorphism. 

4.4 The ML monad 

Now given any monad M we can define a new monad ML: 
unit ML = unit M ■ unit L , 

map ML f = map M (map L /), 

• • ml ■ ■ M M j 

jotn = jotn -map prod. 

The fact that M and L are monads together with the properties of prod are 
just what we need to prove that ML forms a monad. 

5 The distributive laws for monads 

The definition of join ML defined previously was given with no justification of 
where it came from. In fact, join ML was initially defined in terms of a natural 
transformation cp :: L(M a) — » ML a which is a Cartesian product. 

cp = prod ■ map L (map M unit L ). 

The function join ML can now be defined terms of this, 

• • ML M ■ ■ L ■ ■ M M 

jotn = map jotn ■ jotn ■ map cp. 
This can be shown to be equivalent to the previous definition of join ML . 

Properties of cp 
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The (cp-3) property tells us that cp is a natural transformation, the others are 
known as the distributive laws and are discussed in [1]. We can prove these 
properties of cp by using the prod properties. Conversely, we can prove the 
properties of prod using the properties of cp and defining prod as: 



prod = map M join L ■ cp. 



6 Monad properties 



The monad comprehension provides a meaningful way of describing monad 
properties as we showed before with the associative property for monads. In 
Section 3 we mentioned that interchanging qualifiers could be done with a com- 
mutative monad, thus commutativity is represented: 

(Commutativity) [t | a; <— m, j/ <— v] M = [t \ y -h- v,x <c- u] M , 

where x is not free in v, and y is not free in u. 
We say that a monad is idempotent when: 

(Idempotence) [t | x <— u, y <— u ] M = [ty \ x <— u ] M . 

Category theorist's, for example, Barr and Wells [1] use the same name for a 
different concept: they define a monad to be idempotent when join M is an 
isomorphism. With our definition the exception monad is idempotent, whereas 
it is not with the category theorist's definition. Bag and set monads are com- 
mutative but not idempotent. The above properties will be used later on. 



7 Prom the Boom hierarchy to a monad 
hierarchy 

Similar to lists, we can define bags in terms of: nil B , unit B , -\\- B , map B and 
fold B . The function fold B is the same as fold L with the proviso that its op- 
erator is associative and symmetric, and the bag union operator -\\- B is also 
associative and symmetric. Similarly, for sets the operators are associative, 
symmetric and idempotent. On the other end of the scale, for trees the opera- 
tors need not even be associative, and need not have nil as an identity. These 
structures are represented in the following hierarchy, known as the Boom hier- 
archy, see [5]. 
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These structures are all finite and all form free algebraic structures. For in- 
stance, bags form the free symmetric monoid. 

In the following sections we will look at the conditions needed to form MB 
and MS. Trivially, the combined monad MT can be formed with no extra 
conditions, in the same way as we formed ML. We will discover that there are 
a hierarchy of conditions needed on M in order to combine it with bags and 
sets. 



7.1 Bags 

To form the monad MB, where B is the bag monad and M is any monad, we 
must first define the Cartesian product operator on MB. 

(® B ) :: M(B a) -> M(B a) -> M(B a) 
a<g) B b = [x -H- B y \ x <- a, y <- b] M . 

To define, 

prod B :: B(MB a) -> MB a 
prod B = fold B (® B ) e, 

where e = unit M nil B , the operator <E) B must be associative and symmetric, 
to be used with fold B . Its associativity proof is the same as the proof for (g). 

Proposition 

The operator <E) B is symmetric, if M is a commutative monad. 
Proof 

a <g) B b 

= [x -\\- B y | x <— a, y <— &] M (by definition) 
= [ 2/ -H- B * | x <— a, t/ <— &] M (-H- B symmetric) 
= [ y -\\- B x | y a ] M (M commutative) 

= & a (by definition) 

Now we can define the monad (map MB , unit M B , j oin M B ' ) as was done for lists, 
using prod B given above instead of prod. Therefore, we can form the combined 
monad MB so long as M is a commutative monad. 

7.2 Sets 

Using the same recipe for a third time, the Cartesian operator will be defined: 

(<g) s ) :: M(S a) -> M(S a) -> M(S a) 
a(g> s b = [x -H- s y | x <— a, y <— b] M . 

where the operator -H- 5 will be set union, but we will keep to the same notation. 
Now to use fold s , the operator <E) S will have to be associative, symmetric and 
idempotent. Proof of associativity and symmetry are the same as for lists and 
bags. 

Proposition 

The operator <E) S is idempotent, if M is an idempotent monad. 



Proof 



a (g> s a 



= [ x -H- 5 J/ | a; <— a, t/ <— a] M (by definition) 

= [x -W- s x | x <r- a] M (M idempotent) 

= [x | x <— a] M (-H- 5 idempotent) 

= a (mc-5) 

Hence, from this the monad MS can be formed so long as M is a commutative, 
idempotent monad. 
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